home *** CD-ROM | disk | FTP | other *** search
/ BCI NET 2 / BCI NET 2.iso / archives / applications / databases / intra2_16.lha / Install_INTRA < prev    next >
Encoding:
Text File  |  1993-04-03  |  3.6 KB  |  99 lines
  1. ;*************************************************************************
  2. ;  Title:
  3. ;     Install-INTRA
  4. ;*************************************************************************
  5. ;  Description:
  6. ;     The Commodore Installer Script for INTRA
  7. ;*************************************************************************
  8. ;  Author:
  9. ;     Frank Maesen
  10. ;*************************************************************************
  11. ;  History:
  12. ;     12:24:21 GMT, 3 Apr 1993
  13. ;*************************************************************************
  14.  
  15. (set diskname "INTRA_install:" )
  16. (welcome "\n           Welcome to the INTRA installer.\n")
  17.  
  18. (procedure get_rexx_dest
  19.  (if (= dest_dir 0) 
  20.   (set dest_dir "REXX:") 
  21.   (set dest_dir (cat @default-dest "/Rexx") ) ) )
  22.  
  23. (if (< (/ (getversion) 65536) 37) 
  24.  (abort ("\nYou need OS2.04 or higher to run INTRA !!!") )
  25.  ((message "\n\n\nTo install INTRA to your Harddrive, you will need about 150 Kb." )
  26.   (complete 0)
  27.   (set @default-dest
  28.      (askdir (prompt "Select a directory or volume name where INTRA should be "
  29.                      "installed. Keep in mind that this script will create a "
  30.                      "directory called \"INTRA\"." )
  31.              (help @askdir-help)
  32.              (default @default-dest) ) )
  33.   (if (<> "INTRA" (fileonly @default-dest) )
  34.    ((set @default-dest (tackon @default-dest "INTRA") )
  35.     (makedir (@default-dest) (infos) ) ) )
  36.   (complete 1)
  37.  
  38.   (working "Copying INTRA.")
  39.   (copyfiles (prompt "Copy these files.")
  40.              (help @copyfiles-help)
  41.              (source diskname)
  42.              (dest @default-dest)
  43.              (choices "INTRA" "INTRA.info")
  44.              (confirm) )
  45.   (complete 37)
  46.  
  47.   (working "Scanning your LIBS: directory.\n\n"
  48.            "The present libraries will be compared to the libraries on the install disk".)
  49.   (copylib (prompt "\n\"reqtools.library\"")
  50.              (help @copylib-help)
  51.              (source (cat diskname "Libs/reqtools.library") ) 
  52.              (dest "LIBS:") (optional) (confirm) )
  53.   (complete 68)
  54.  
  55.   (copyfiles (prompt "Copy the default icon and prefs to your ENVARC:\n"
  56.                      "A directory \"INTRA\" will be created with these files.")
  57.              (help @copyfiles-help)
  58.              (source (cat diskname "Prefs/ENVARC/INTRA") )
  59.              (dest "ENVARC:INTRA")
  60.              (optional) (choices "def_intra.info" "Intra.Prefs") (confirm) )
  61.   (if (exists "ENVARC:INTRA/def_intra.info")
  62.    (tooltype (dest "ENVARC:INTRA/def_intra.info")
  63.              (setdefaulttool (tackon @default-dest "INTRA") ) (noposition) ) )
  64.   (complete 70)
  65.  
  66.   (working "Copying REXX scripts.")
  67.   (if (getassign "REXX" "a")
  68.    ((set dest_dir
  69.      (askchoice (prompt (cat "Install the Rexx script to \"Rexx:\" or\n\"" @default-dest "/Rexx\"") )
  70.              (help @askchoice-help)
  71.              (choices "REXX:" (cat @default-dest "/Rexx") ) (default 0) ) )
  72.     (get_rexx_dest) )
  73.    (set dest_dir (cat @default-dest "/Rexx") ) )
  74.   (copyfiles (prompt "Copy these REXX scripts.")
  75.              (help @copyfiles-help)
  76.              (source (cat diskname "Rexx") )
  77.              (dest (dest_dir) )
  78.              (all) (optional) (confirm) )
  79.   (complete 76)
  80.  
  81.   (working "Copying docs.")
  82.   (copyfiles (prompt "Copy these docs.")
  83.              (help @copyfiles-help)
  84.              (source (cat diskname "Docs") )
  85.              (dest (cat @default-dest "/Docs") )
  86.              (all) (infos) (optional) (confirm) )
  87.   (complete 98)
  88.  
  89.   (working "Copying Data.")
  90.   (copyfiles (prompt "Copy this/these data files.")
  91.              (help @copyfiles-help)
  92.              (source (cat diskname "Data") )
  93.              (dest (cat @default-dest "/Data") )
  94.              (infos) (all) (optional) (confirm) )
  95.  
  96.   (complete 100)
  97.  )
  98. )
  99.